home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / CHARDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  329 b   |  18 lines
  1. PROGRAM char_demonstration;
  2.  
  3. VAR letter  : CHAR;
  4.     number  : CHAR;
  5.     dogfood : CHAR;
  6.  
  7. BEGIN
  8.   letter := 'P';
  9.   number := 'A';
  10.   dogfood := 'S';
  11.   WRITE(letter,number,dogfood);
  12.   letter := number;             (* This is now the 'A' *)
  13.   number := 'L';
  14.   dogfood := 'C';
  15.   WRITE(dogfood,letter,number);
  16. END.
  17.  
  18.